home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel PPC / lib_show / external / src.c < prev   
Encoding:
C/C++ Source or Header  |  1996-06-13  |  615 b   |  48 lines  |  [TEXT/KAHL]
  1. /*
  2. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  3. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  4. --
  5. For EXTERNAL_DEMO */
  6.  
  7. void integer2c(int i){
  8.   printf("%d\n",i);
  9. }
  10.  
  11. void character2c(char c){
  12.   printf("'%c'\n",c);
  13. }
  14.  
  15. void boolean2c(int b){
  16.   printf("%d\n",b);
  17. }
  18.  
  19. void real2c(double r){
  20.   printf("%f\n",r);
  21. }
  22.  
  23. void double2c(double d){
  24.   printf("%f\n",d);
  25. }
  26.  
  27. void string2c(char *s){
  28.   printf("%s",s);
  29. }
  30.  
  31. void any2c(void *a){
  32.   printf("%p\n",a);
  33. }
  34.  
  35. void current2c(void *a){
  36.   printf("%p\n",a);
  37. }
  38.  
  39. int integer2eiffel(void){
  40.   return -6;
  41. }
  42.  
  43. char character2eiffel(void){
  44.   return '\n';
  45. }
  46.  
  47.  
  48.